home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / U-Utilities / (c)u1.d64 / colour bar 2.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  910b  |  40 lines
  1. 3 REM COLOR BLOCKS
  2. 5 G=13*4096:POKE G+33,0
  3. 7 S$=""
  4. 10 PRINT "[147]":CD$="[144][159][156][158][129][149][150][151][152][153][154][155]"
  5. 13 DATA "BLACK","WHITE","RED"
  6. 14 DATA "[159]CYAN","[156]PURPLE","GREEN"
  7. 15 DATA "BLUE","[158]YELLOW","[129]ORANGE"
  8. 16 DATA "[149]BROWN","[150]PINK","[151]GRAY 1"
  9. 17 DATA "[152]GRAY 2","[153]LT GREEN","[154]LT BLUE"
  10. 18 DATA "[155]GRAY 3"
  11. 20 FOR X=0 TO 3
  12. 25 FOR Y=1 TO 5
  13. 30 FOR Z=1 TO 4
  14. 40 PRINT " "MID$(CD$,X*4+Z,1)"        [146] ";
  15. 50 NEXT Z
  16. 60 NEXT Y
  17. 65 IF X<>3 THEN PRINT
  18. 70 NEXT X
  19. 75 PRINT ""SPC(1)"[207][183][183][183][183][183][183][208]"SPC(32)"[165]      [167]"
  20. 76 PRINT SPC(1)"[165]      [167]"SPC(32)"[165]      [167]"
  21. 79 PRINTSPC(1)"[204][175][175][175][175][175][175][186]"
  22. 80 PRINT"";:FOR X=1 TO 4
  23. 90 READ A$,B$,C$,D$
  24. 100 PRINT "";:IF X=1 THEN PRINT "[145]";
  25. 105 PRINT ""A$,""B$,""C$,""D$
  26. 110 NEXT X
  27. 115 GOTO 200
  28. 120 GET A$:IF A$="" THEN 120
  29. 130 IF A$<CHR$(128) THEN POKE G+33,PEEK(G+33)+1 AND 15
  30. 134 BC=PEEK(G+33)+1 AND 15:BC=(-(BC=0)+BC)OR 240
  31. 135 IF A$>CHR$(127) THEN POKE G+32,BC
  32. 140 GOTO 120
  33. 200 X=INT(RND(1)*16)
  34. 210 Y=INT(RND(1)*15+1)
  35. 220 POKE G+33,X
  36. 230 POKE G+32,Y OR 240
  37. 240 FOR A=1 TO 350
  38. 250 NEXT A
  39. 260 GOTO 200
  40.